Option Explicit
Sub C_Sample027()
    Dim myRng  As Range
    Dim myHyps As Hyperlinks
    Set myRng = Range("A1")				'Nxs
    With myRng
        Set myHyps = .Hyperlinks
        myHyps.Delete
        'ǳƨ즹
        myHyps.Add Anchor:=myRng, _
        Address:="http://www.drmaster.com.tw/", _
        TextToDisplay:="DrMaster"			']wrP}
    End With
    Set myHyps = Nothing				'
    Set myRng = Nothing
End Sub

